home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Packages / recentFiles.tcl < prev    next >
Encoding:
Text File  |  1998-12-20  |  4.2 KB  |  130 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*- (install)
  2.  # ###################################################################
  3.  #  Alpha - new Tcl folder configuration
  4.  # 
  5.  #  FILE: "recentFiles.tcl"
  6.  #                                    created: 21/9/97 {9:14:38 pm} 
  7.  #                                last update: 20/12/1998 {11:20:19 pm} 
  8.  #  
  9.  # Reorganisation carried out by Vince Darley with much help from Tom 
  10.  # Fetherston, Johan Linde and suggestions from the Alpha-D mailing list.  
  11.  # Alpha is shareware; please register with the author using the register 
  12.  # button in the about box.
  13.  #  
  14.  # original author probably Pete Keleher.  Vince added a bunch of
  15.  # code to work-around some Alpha-menu problems, and made it a 
  16.  # package.
  17.  # 
  18.  # Version 0.2 builds the menu about a zillion times faster than
  19.  # the original which built the menu once for every item at
  20.  # startup!  Also removed two unnecessary procs, since that stuff
  21.  # can be done elsewhere automatically.
  22.  # ###################################################################
  23.  ##
  24.  
  25. alpha::extension recentFilesMenu 0.2.6 {
  26.     namespace eval recent {}
  27.     ensureset recent::Files ""
  28.     hook::register saveasHook recent::push
  29.     hook::register openHook recent::push
  30.     menu::buildProc recent recent::makeMenu
  31.     menu::insert File submenu 2 recent
  32.     lappend modifiedVars recent::Files
  33.     # declare the fileset
  34.     set "gfileSetsType(Recent Files)" "procedural"
  35.     set "gfileSets(Recent Files)" recent::listFiles
  36.     lunion filesetsNotInMenu "Recent Files"
  37. } help {Adds a menu of recent files to the files menu, and a recent files fileset}
  38.  
  39. newPref variable numberOfRecentFiles 15
  40. ## 
  41.  # -------------------------------------------------------------------------
  42.  # 
  43.  # "recent::push" --
  44.  # 
  45.  #  Works with files whose name contained '[' or ']' which didn't before.
  46.  #  Doesn't add any file which fails 'file exists' to the menu.
  47.  # -------------------------------------------------------------------------
  48.  ##
  49. proc recent::push {name {name2 ""}} {
  50.     if {$name2 != ""} { set name $name2 }
  51.     global recent::Files numberOfRecentFiles file::separator
  52.     
  53.     regsub { <[0-9]+>$} $name {} name
  54.     if {![file exists $name]} { return }
  55.     if {[info tclversion] < 8.0} {
  56.     regsub -all {\\([][])} $name {\1} name
  57.     if {[info exists recent::Files] \
  58.       && ([set ind [lsearch -regexp ${recent::Files} "${file::separator}[quote::Regfind [file tail $name]]…?$"]] >= 0)} {
  59.         set recent::Files [lreplace ${recent::Files} $ind $ind]
  60.         lappend recent::Files $name
  61.         return
  62.     }
  63.     } else {
  64.     if {[info exists recent::Files] \
  65.       && ([set ind [lsearch -exact ${recent::Files} $name]] >= 0)} {
  66.         set recent::Files [lreplace ${recent::Files} $ind $ind]
  67.         lappend recent::Files $name
  68.         return
  69.     }
  70.     }
  71.  
  72.     lappend recent::Files $name
  73.     if {[llength ${recent::Files}] > $numberOfRecentFiles} {
  74.     set recent::Files [lrange ${recent::Files} 1 end]
  75.     }
  76.     recent::makeMenu
  77. }
  78.  
  79. proc recent::makeMenu {} {
  80.     global recent::Files
  81.     set tails {}
  82.     foreach t ${recent::Files} {
  83.     lappend tails [file tail $t]
  84.     }
  85.     Menu -m -c -n recent -p recent::menuProc \
  86.       [concat [lsort -ignore $tails] [list "(-" "Reset List"]]
  87.     set enable [expr [llength ${recent::Files}] ? 1 : 0]
  88.     enableMenuItem File recent $enable
  89. }
  90.  
  91. ## 
  92.  # -------------------------------------------------------------------------
  93.  # 
  94.  # "recent::menuProc" --
  95.  # 
  96.  #  Works with menu items which contain '[', ']' and '…' which didn't work
  97.  #  before.
  98.  # -------------------------------------------------------------------------
  99.  ##
  100. proc recent::menuProc {menu name} {
  101.     global recent::Files file::separator
  102.     
  103.     if {$name == "Reset List"} {
  104.     set recent::Files {}
  105.     Menu -m -n recent -p recent::menuProc {}
  106.     recent::makeMenu
  107.     } else {
  108.     if {[set ind [lsearch -regexp ${recent::Files} "${file::separator}[quote::Regfind $name]…?$"]] >= 0} {
  109.         edit [lindex ${recent::Files} $ind]
  110.     } else {
  111.         alpha::errorAlert "Couldn't find a file '$name'.  Weird!"
  112.     }
  113.     }
  114. }
  115.  
  116. ## 
  117.  # -------------------------------------------------------------------------
  118.  # 
  119.  # "recent::listFiles" --
  120.  # 
  121.  #  Used to retrieve the list of files in the 'recent files' fileset
  122.  # -------------------------------------------------------------------------
  123.  ##
  124. proc recent::listFiles {} {
  125.     global recent::Files
  126.     return ${recent::Files}
  127. }
  128.  
  129.  
  130.